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“TITLE COBSSCONTROL KEY - Key translation 
IDENT /1-001/ 3; File: COBKEY.MAR Edit: DG1001 


SRERAAAAAAECAAAAAAAAAAA AAA 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL bat ote Py CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


*@ * 
*@ ® 
*@ oe 
*@ J 
*@ ® 
;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
s* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. ps 
*@ ® 
*@ ® 
*@ = 
*® R 
*@ ® 
*@ ® 
*® ® 
*@ * 
*@ * 
*® ® 


3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
; D SHOULD NOT 


— — — — — — — — 2 — 


AN BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SCOoooooooo 


& — 


+ 
FACILITY: Run-Time Library COBOL support 
ABSTRACT: 


This module contains a routine which converts 
terminator sequences to COBOL defined sequences 


ENVIRONMENT: Runs at any access mode, AST Reentrant 
AUTHOR: Debess Grabazs, CREATION DATE: 14-June-1983 
MODIFIED BY: 

1-001 - Original. DG 14-June-1983 
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4 «SBTTL DECLARATIONS 
48 : LIBRARY MACRO CALLS: 
; SDSCDEF : Get descriptor definitions 
SSMGDEF 3; Get terminator codes 


EXTERNAL DECLARATIONS: 


Sete te 


PAARQ®EAMAAGANA III 
20 


4 
5 
§ -DSABL GBL ; Force all external symbols to be declared 
-EXTRN SMGSSTERM_TO_KEYCODE  ; Translate terminator to key code 
— 3; MACROS: 
66 0; 
0 13 NONE 
000 § 3 
000 3; EQUATED SYMBOLS: 
000 64 ; 
8 65 
00000009 000 96 K_TAB = 9 
0000000D 8 6 K_RETURN = 13 
Q000001A 0 68 K_-CTRLZ = ze 
0000008F 0000 S K_SS3 = 14 
00000098 00 0 K_CSI = 155 
00 71 
00 3 
8 73 ; OWN STORAGE: 
00 74; 
8 75 ; NONE 
000 6 — 
000 77 ; PSECT DECLARATIONS: 
a3 
| 00000000 80 -PSECT _SMGSCODE PIC, USR, CON, REL, LCL, SHR, - 
| 9000 81 EXE, RD, NOWRT, LONG 
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1-001 Table for COBOL defined KEY sequences bose p=] 984 93:03:34 COBRT!..SRCJCOBKEY.MAR; 1 ay 
5 AS 198 eASCIT ''5"" 
E Ag 19 Le | 
oi g A 0 WORD SNGSK_TRM_NEXT SCREEN 
0 AY 1 «WORD 
° AB ¢ -BYTE K CSI 
AC “ASCII (BU 
E AD 04 ASCII 
84 OA 5 «WORD SMGSK_TRM_F6 
a 
I 8 8 eASCIT UT" 
7 pee 09 eASCIT ['7"! 
E B5 10 eASCIT '™' 
Saye Bie HAGA greet r7 
B QOBA 13 -BYTE K_CSI 
1 0088 14 eASCIT UT" 
8 00BC 15 eASCII *'8° 
3 OBD 16 sAetle “™ 
0120 O0BE 217 -WORD  SMGSK_TRM_F8 
a 
31 00C 20 eASCII O'T" 
eB RE. 
0121 00C6 $8 -WORD SMGSK_TRM_F9 
0004 00C8 24 «WORD 
Sek gee RUE, Sst 
30 g0¢¢ $$ ASCII “'0"' 
OCD 228 -ASCIT — — 
do 0000 330 — te” | 
38 900 31 -BYTE K_CSI 
2 00D : ASCII "2" 
E Oops 534 ASELL oe 
018 0006 32 One pena 
OODA 537 -BYTE K,CSI 
4 8 ASCII J. 
868 "ASCE 
124 3 41 -WORD SMGSK_TRM_F12 
004 E 4g «WORD 4 
98 O0E 4 -BYTE K_CSI 
OE 44 ~ASCII '2" 
4 Q0E4 245 ASCII '4"" 
3 ES 46 ASCII 
boo, 0068 $4 won eran AFIS 
EA 8 BYTE K.CSI 
EB 0 ASCII ages 
EC 1 eASCIT O85" 
E ED ASCII 
4 6 EF -WORD SMGSK_TRM_F14 
004 OOF 54 -WORD 4 
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— -SBTTL COBSSCONTROL_KEY = Translate terminator to COBOL sequence 
; FUNCTIONAL DESCRIPTION: 


COBSSCONTROL_KEY translates a terminator character sequence 
to a COBOL defined sequence. 


; CALLING SEQUENCE: 
: CALL COBSSCONTROL_KEY (terminator.rt.r, term_length.rl.v, key.wt.ds) 


FORMAL PARAMETERS: 


terminator = 4 ; The terminator string, passed by reference. 
term_length = 8 3; The se of the terminator string, passed 
3; by immediate value. 


key = 12 


Destination of oe iy og field of the 
control key, passed by descriptor. 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 
NONE 
SIDE EFFECTS: 
KEY gets filled in with the appropriate COBOL defined sequence. 


NE: -WORD 1 
PACE: .ASCII ‘*** 


.ENTRY COBSSCONTROL_KEY, “M<R2> 


“no Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


> Space fill KEY to initialize 


MOVL key(AP), RO 
MOVCS ONE, SPACE, #*A/ /, DSCSW_LENGTH(RO), @DSCSA_POINTER(RO) 


3+ 
; Translate terminator sequence to key code 


6 13 
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mitt COBSSCONTROL KEY - Translate terminator ans p-1 986 93:23:32 COBRTL.SRCJCOBKEY.MAR; 1 . (4) 
13A 4 
gs AC OD 13, 5 PUSHL term_ my bod 
4 BS 0D Q1 § PUSHL aterm ne or (AP) 
OOOOD000"EF 0 FB 1? 38 CALLS #2, SMGSSTERM_TO_KEYCODE 
147 3+ 
147 60 ; Search the table to determine what COBOL defined sequence to put in KEY. 
147 61 ; Ri will be loaded with the table address and RO is the key code returned 
147 86 3 by SMGSSTERM_TO_KEYCODE. 
147 63 3° 
14; 64 
51 FEBS CF 9E 8 92 MOVAB W*“TABLE, R1 
5281 7 14C 8 108: MOVZWL (R1)4+, R2 ; Get word to compare against 
—< 14F 68 BEQL “Mey 3: End of table? 
50 2s 9 13) 4 CMPW R2, R29 3; Compare character 
0 3 0154 0 BEQL FOUND 3; End if foun 
52 1 8 Al 0156 71 ADDW3 #2, (R1), R2 3; Skip over contents 
1 AO 15A 3 ADDW2 R R1 
ED 11 15D 7 BRB 10$ 3; Repeat until found or table end 
18398 a 
15F 76 ; Translation found. Store the counted sequence which is in the bytes 
15F 77 ; addressed by R1 
HEH 78 ;- 
15F 79 
015F $0 FOUND: 
50 OC AC DO O15F 1 OVL KEYCAP), RO 
04 BO 02 Al 61 28 0163 3 novc3 (R1), 2(R1), @DSCSA_POINTER(RO) ; Put sequence in KEY 
50 01 DO 0169 Hy MOVL #1, RO 3; Signal success 
04 16C 84 RET 
16D 85 
16D 86 ;+ 
190 3 ve get here if the terminator has no translation 
16D 89 
16D 90 NOTRANS: 
50 OFF 8F 3¢ $193 91 MOVZWL #SMGSK_TRM_UNKNOWN, RO ; Unknown terminator 
50 00 00 Vg 3 MOVL #0, RO 3 gignal failure - unknown key 
04 94 X 3; Return terminator code 
0176 95 - END ; End of module COBSSCONTROL_KEY 
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— w en eww mmm mecocnan$ 


! Psect synopsis ! 


bonne nn em eee meee t 


PSECT name Allocation PSECT No. Attributes 

- ABS . 0 8 8 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

SABSS$ 0 ( 0.) O1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 

_SMGSCODE 000176 ( 374.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
— mama wr rman mane mene moe + 
; Performance indicators H 

Phase Page faults CPU Time Elapsed Time 

Initialization 29 0:00:00.05 00:00:01.3 

Command processing 106 88: 0:9 92 00: 6:8 “38 

Pass 184 88:20: a4) i Se “6 

Symbol table sort 0 0:00:00.3 0:00:00.80 

Pass 2 74 888 5-82 B88 8 08 

Symbol table output :00:00.05 0:00:00.1 

Psect synopsis output 38383:8 — 333838 

Cross-reference output 0 80:05:00.5 0:00:00.0 

Assembler run totals 406 00:00:04.21 00:00:22.54 


The working set Limit was 1050 pages. 

20001 bytes (40 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space allocated to hold 349 non-local and 1 local symbols. 
395 source Lines were read in Pass 1, 21 13 object records in Pass 2. 

9 pages of virtual memory were used to define 8 macros. 


moe eecn enone anwe Ce Seema mas + 


Macro library statistics ! 


— 
* —22222— me Se ee 2 


Macro Library name Macros defined 
~$255SDUA2B: (SYSLIB)STARLET.MLB;2 — ee 
397 GETS were required to define 5 macros. 

There were no errors, warnings or information messages. 
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